home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dbase / lib19.zip / MEASURE.PRG < prev    next >
Text File  |  1992-06-25  |  11KB  |  333 lines
  1. *-------------------------------------------------------------------------------
  2. *-- Program...: MEASURE.PRG
  3. *-- Programmer: Ken Mayer (KENMAYER)
  4. *-- Date......: 06/25/1992
  5. *-- Notes.....: These routines handle conversion from various forms of 
  6. *--             measurement to others ... see the file: README.TXT for details
  7. *--             on the use of this library file.
  8. *-------------------------------------------------------------------------------
  9.  
  10. FUNCTION Kg2Lb
  11. *-------------------------------------------------------------------------------
  12. *-- Programmer..: Jay Parsons (JPARSONS)
  13. *-- Date........: 11/05/90
  14. *-- Notes.......: converts kilograms to pounds
  15. *-- Written for.: dBASE IV
  16. *-- Rev. History: None
  17. *-- Calls.......: None
  18. *-- Called by...: Any
  19. *-- Usage.......: Kg2Lb(<nKg>)
  20. *-- Example.....: ? Kg2Lb(40)
  21. *-- Returns.....: dBASE number
  22. *-- Parameters..: nKg -- mass in kilograms
  23. *-------------------------------------------------------------------------------
  24.  
  25.     parameters nKg
  26.     
  27. RETURN nKg / 0.45359237
  28. *--EoF: Kg2Lb()
  29.  
  30. FUNCTION Lb2Kg
  31. *-------------------------------------------------------------------------------
  32. *-- Programmer..: Jay Parsons (JPARSONS)
  33. *-- Date........: 11/05/90
  34. *-- Notes.......: converts pounds to kilograms
  35. *-- Written for.: dBASE IV
  36. *-- Rev. History: None
  37. *-- Calls.......: None
  38. *-- Called by...: Any
  39. *-- Usage.......: Lb2Kg(<nPounds>)
  40. *-- Example.....: ? Lb2Kg(66)
  41. *-- Returns.....: dBASE number
  42. *-- Parameters..: nPounds -- mass in pounds
  43. *-------------------------------------------------------------------------------
  44.  
  45.     parameters nPounds
  46.     
  47. RETURN nPounds * 0.45359237
  48. *-- EoF: Lb2Kg()
  49.  
  50. FUNCTION Inch2Cm
  51. *-------------------------------------------------------------------------------
  52. *-- Programmer..: Jay Parsons (JPARSONS)
  53. *-- Date........: 11/05/90
  54. *-- Notes.......: converts inches to centimeters
  55. *-- Written for.: dBASE IV
  56. *-- Rev. History: None
  57. *-- Calls.......: None
  58. *-- Called by...: Any
  59. *-- Usage.......: Inch2Cm(<nInches>)
  60. *-- Example.....: ? inch2cm(12)
  61. *-- Returns.....: dBASE number
  62. *-- Parameters..: nInches -- length in inches
  63. *-------------------------------------------------------------------------------
  64.  
  65.     parameters nInches
  66.     
  67. RETURN nInches * 2.54
  68. *--EoF: Inch2Cm()
  69.  
  70. FUNCTION Cm2Inch
  71. *-------------------------------------------------------------------------------
  72. *-- Programmer..: Jay Parsons (JPARSONS)
  73. *-- Date........: 11/05/90
  74. *-- Notes.......: converts centimeters to inches
  75. *-- Written for.: dBASE IV
  76. *-- Rev. History: None
  77. *-- Calls.......: None
  78. *-- Called by...: Any
  79. *-- Usage.......: Cm2Inch(<nCm>)
  80. *-- Example.....: ? cm2inch(100)
  81. *-- Returns.....: dBASE number
  82. *-- Parameters..: nCm -- length in Cm
  83. *-------------------------------------------------------------------------------
  84.  
  85.     parameters nCm
  86.     
  87. RETURN nCm / 2.54
  88. *-- EoF: Cm2Inch()
  89.  
  90. FUNCTION Km2Mile
  91. *-------------------------------------------------------------------------------
  92. *-- Programmer..: Jay Parsons (JPARSONS)
  93. *-- Date........: 03/01/92
  94. *-- Notes.......: converts kilometers to miles
  95. *-- Written for.: dBASE IV
  96. *-- Rev. History: Ver. 1.1 eliminates one multiplication
  97. *-- Calls.......: None
  98. *-- Called by...: Any
  99. *-- Usage.......: Km2Mile(<nKm>)
  100. *-- Example.....: ? km2mile(80)
  101. *-- Returns.....: dBASE number
  102. *-- Parameters..: nKm -- length in kilometers
  103. *-------------------------------------------------------------------------------
  104.  
  105.     parameters nKm
  106.     
  107. RETURN nKm / 1.609344
  108. *-- EoF: Km2Mile()
  109.  
  110. FUNCTION Mile2Km
  111. *-------------------------------------------------------------------------------
  112. *-- Programmer..: Jay Parsons (JPARSONS)
  113. *-- Date........: 03/01/92
  114. *-- Notes.......: converts Miles to Kilometers
  115. *-- Written for.: dBASE IV
  116. *-- Rev. History: Ver. 1.1 eliminates one multiplication
  117. *-- Calls.......: None
  118. *-- Called by...: Any
  119. *-- Usage.......: mile2km(<nMiles>)
  120. *-- Example.....: ? mile2km(50)
  121. *-- Returns.....: dBASE number
  122. *-- Parameters..: nMiles -- length in miles
  123. *-------------------------------------------------------------------------------
  124.  
  125.     parameters nMiles
  126.     
  127. RETURN nMiles * 1.609344
  128. *-- EoF: Mile2Km()
  129.  
  130. FUNCTION Km2Naut
  131. *-------------------------------------------------------------------------------
  132. *-- Programmer..: Jay Parsons (JPARSONS)
  133. *-- Date........: 03/01/92
  134. *-- Notes.......: converts Kilometers to Nautical Miles
  135. *-- Written for.: dBASE IV
  136. *-- Rev. History: None
  137. *-- Calls.......: None
  138. *-- Called by...: Any
  139. *-- Usage.......: Km2Naut(<nKm>)
  140. *-- Example.....: ? Km2Naut(50)
  141. *-- Returns.....: dBASE number
  142. *-- Parameters..: nKm -- length in kilometers
  143. *-------------------------------------------------------------------------------
  144.  
  145.     parameters nKm
  146.     
  147. RETURN nKm / 1.852
  148. *-- EoF: Km2Naut
  149.  
  150. FUNCTION Naut2Km
  151. *-------------------------------------------------------------------------------
  152. *-- Programmer..: Jay Parsons (JPARSONS)
  153. *-- Date........: 03/01/92
  154. *-- Notes.......: converts Nautical Miles to Kilometers
  155. *-- Written for.: dBASE IV
  156. *-- Rev. History: None
  157. *-- Calls.......: None
  158. *-- Called by...: Any
  159. *-- Usage.......: Naut2Km(<nNautMiles>)
  160. *-- Example.....: ? Naut2km(50)
  161. *-- Returns.....: dBASE number
  162. *-- Parameters..: nNautMiles -- length in miles
  163. *-------------------------------------------------------------------------------
  164.  
  165.     parameters nNautmiles
  166.     
  167. RETURN nNautmiles * 1.852
  168. *-- EoF: Naut2Km()
  169.  
  170. FUNCTION Naut2Stat
  171. *-------------------------------------------------------------------------------
  172. *-- Programmer..: Jay Parsons (JPARSONS)
  173. *-- Date........: 03/01/92
  174. *-- Notes.......: converts Nautical Miles to Statute Miles
  175. *-- Written for.: dBASE IV
  176. *-- Rev. History: None
  177. *-- Calls.......: None
  178. *-- Called by...: Any
  179. *-- Usage.......: Naut2Stat(<nNautMiles>)
  180. *-- Example.....: ? Naut2Stat(50)
  181. *-- Returns.....: dBASE number
  182. *-- Parameters..: nNautMiles -- length in miles
  183. *-------------------------------------------------------------------------------
  184.  
  185.     parameters nNautmiles
  186.     
  187. RETURN nNautmiles * 1.150779448
  188. *-- EoF: Naut2Stat()
  189.  
  190. FUNCTION Stat2Naut
  191. *-------------------------------------------------------------------------------
  192. *-- Programmer..: Jay Parsons (JPARSONS)
  193. *-- Date........: 03/01/92
  194. *-- Notes.......: converts Statute Miles to Nautical Miles
  195. *-- Written for.: dBASE IV
  196. *-- Rev. History: None
  197. *-- Calls.......: None
  198. *-- Called by...: Any
  199. *-- Usage.......: Stat2Naut(<nStatMiles>)
  200. *-- Example.....: ? Stat2Mile(50)
  201. *-- Returns.....: dBASE number
  202. *-- Parameters..: nStatMiles -- length in miles
  203. *-------------------------------------------------------------------------------
  204.  
  205.     parameters nstatmiles
  206.     
  207. RETURN nStatmiles / 1.150779448
  208. *-- EoF: Stat2Naut()
  209.  
  210. FUNCTION Fahr2Cel
  211. *-------------------------------------------------------------------------------
  212. *-- Programmer..: Jay Parsons (JPARSONS)
  213. *-- Date........: 03/01/92
  214. *-- Notes.......: converts Fahrenheit to Celsius
  215. *-- Written for.: dBASE IV
  216. *-- Rev. History: None
  217. *-- Calls.......: None
  218. *-- Called by...: Any
  219. *-- Usage.......: Fahr2Cel(<nFahrTemp>)
  220. *-- Example.....: ? Fahr2Cel(50)
  221. *-- Returns.....: dBASE number
  222. *-- Parameters..: nFahrTemp -- temperature Fahrenheit
  223. *-------------------------------------------------------------------------------
  224.  
  225.     parameters nFahrTemp
  226.     
  227. RETURN 5 * (nFahrtemp - 32 ) / 9
  228. *-- EoF: Fahr2Cel()
  229.  
  230. FUNCTION Cel2Fahr
  231. *-------------------------------------------------------------------------------
  232. *-- Programmer..: Jay Parsons (JPARSONS)
  233. *-- Date........: 03/01/92
  234. *-- Notes.......: converts Celsius to Fahrenheit 
  235. *-- Written for.: dBASE IV
  236. *-- Rev. History: None
  237. *-- Calls.......: None
  238. *-- Called by...: Any
  239. *-- Usage.......: Cel2Fahr(<nCelTemp>)
  240. *-- Example.....: ? Cel2Fahr(50)
  241. *-- Returns.....: dBASE number
  242. *-- Parameters..: nCelTemp -- temperature Celsius
  243. *-------------------------------------------------------------------------------
  244.  
  245.     parameters nCelTemp
  246.     
  247. RETURN 9 * nCelTemp / 5 + 32
  248. *-- EoF: Cel2Fahr()
  249.  
  250. FUNCTION Gal2Ltr
  251. *-------------------------------------------------------------------------------
  252. *-- Programmer..: Jay Par